home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / Functions Part2 / card_3017.txt < prev    next >
Text File  |  1989-08-04  |  2KB  |  100 lines
  1. -- card: 3017 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2687
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=48 top=153 right=175 bottom=148
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Results of a find
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hide msg
  23.   set cursor to watch
  24.   ask "Put a word here that is easy to find." with "go"
  25.   find it
  26.   put the result && "          <--This is the result of that FIND (it's empty)."
  27.   wait 2 secs
  28.   ask "Put a word here that is impossible to find." with "xhrjddxs"
  29.   find it
  30.   put the result && "<--This is the result of that FIND (it's not empty)."
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 3 (button)
  36. -- low flags: 00
  37. -- high flags: 8003
  38. -- rect: left=48 top=178 right=200 bottom=148
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 3
  43. -- text size: 9
  44. -- style flags: 0
  45. -- line height: 12
  46. -- part name: Error Trapping
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   ask "Put a word here that is easy to find." with "go"
  50.   find it
  51.   if the result is NOT empty
  52.   then
  53.   put "FIND was unsuccessful. -- the result is NOT FOUND"
  54. else
  55.   put "FIND was successful. -- the result has nothing in it"
  56. end if
  57.  
  58. ask "Put a word here that is impossible to find." with "gobbledygook"
  59. find it
  60. if the result is NOT empty
  61. then
  62. put "FIND was unsuccessful. -- the result is NOT FOUND"
  63. else
  64.   put "FIND was successful. -- the result has nothing in it"
  65. end if
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 4 (button)
  71. -- low flags: 00
  72. -- high flags: 8003
  73. -- rect: left=48 top=204 right=226 bottom=148
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 3
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 12
  81. -- part name: the result
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   ask "Put a word here that is easy to find." with "go"
  85.   find it
  86.   put the result
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 8
  92. ----- text -----
  93. the result
  94.  
  95. -- part contents for background part 18
  96. ----- text -----
  97. Indicates whether a FIND or GO command was successful or not.
  98. A failed FIND returns "not found".
  99. A failed GO returns "no such card".
  100. A successful FIND/GO returns no result (an empty result).